www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/admin/Deal_user.asp

    <!--#include file="../Ku_inc/Ku_sql.asp"-->
<!--#include file="../Ku_inc/Ku_config.asp"-->
<!--#include file="Ku_conn.asp"-->
<!--#include file="../Ku_inc/inc.asp"-->
<!-- #include file="Session.asp"-->
<%
if request("action")="del" then
if Trim(Request("ID"))="" then
	FoundErr=True
	Message=Message & "<li>请您选择要删除的信息！</li>"
else
	call Del()
end if

if FoundErr<>True then
	Sub Del()
		'删除信息
		sql = "delete from ku_user where ID in ("& Trim(Request("ID")) &")"
		conn.execute (sql)
	End Sub
	'成功提示	   
	call performuser("操作成功！","")
end if

if FoundErr=True then
	call ErrMsg(Message)
end if
end if
%>

<%
if request("action")="shenhe" then
if Trim(Request("ID"))="" then
	FoundErr=True
	Message=Message & "<li>请您选择要操作的信息！</li>"
else
	call strPeak()
end if

if FoundErr<>True then
	Sub strPeak()
		adoSQL="update ku_user set shenhe=1 where ID=" & Trim(Request("ID")) & ""
		conn.execute(adoSQL)
	End Sub
	'成功提示	   
	call performuser("操作成功！","")
end if

if FoundErr=True then
	call ErrMsg(Message)
end if
end if
%>
<%
if request("action")="chushihua" then
id=request("id")
pass=request("pass")
    set rs=server.createobject("adodb.recordset")
    sql="select * from ku_user where id="&id
    rs.open sql,conn,1,3
    
    rs("password")=pass
    rs.update
    rs.close
    response.Write("<script>alert(""初始化成功，初始化密码：123456789！"");location.href=""User_list.asp"";</script>")
end if
%>
<%
if request("act")="ejifen" then
jifen=request("jifen")
id=request("id")
    If jifen="" Then
    Response.Write "<script>alert(""积分数字不能为空!"");location.href=""javascript:history.back()"";</script>"
    Response.end()
    else
    set rs=server.createobject("adodb.recordset")
    sql="select * from ku_user where id="&id
    rs.open sql,conn,1,3
    


    rs("jifen")=jifen

    rs.update
    rs.close
    response.Write("<script>alert(""修改积分成功！"");location.href=""User_list.asp"";</script>")

    end if
    end if 

%>
<%
if request("act")="edituser" then
id=request("id")

    set rs=server.createobject("adodb.recordset")
    sql="select * from ku_user where id="&id
    rs.open sql,conn,1,3
    rs("qq")=request("qq")
    rs("email")=request("email")
    rs("http")=request("http")
    rs("tel")=request("tel")
    rs("address")=request("address")
    rs("admin")=request("admin")
    rs("uservip")=request("uservip")    

    rs.update
    rs.close
    response.Write("<script>alert(""修改资料成功！"");location.href=""User_list.asp"";</script>")
    end if 

%>